home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / S-Z / Special Delivery™ Demo.cpt / Special Delivery™ Demo / Claris / Claris Translators / EPSF.rsrc / PS_101 < prev    next >
Text File  |  1991-06-19  |  4KB  |  151 lines
  1. %%BeginProcSet : Text Attributes Procs
  2. /T {792 exch sub} bind def
  3. /sx 0 def
  4. /sy 0 def
  5. /ex 0 def
  6. /ey 0 def
  7. /lw  0 def
  8. /siz 0 def
  9. /U {gsave 0 setlinecap
  10. /lw siz 0.078125 mul def  /ey exch neg def /ex exch def /sy exch neg def /sx exch def
  11. fontkind plain eq 
  12.  {
  13.   lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke
  14.  }
  15.  {
  16.    currentdict /outlineFontSize known outlineFontSize 0 gt and
  17.      {
  18.        fontkind outline eq
  19.          {
  20.            /sy sy 0.0119444 siz mul sub def
  21.            /ey ey 0.0119444 siz mul sub def
  22.            gsave 
  23.            1 1 1 setrgbcolor lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke
  24.            grestore
  25.            lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto
  26.            strokepath 0.0119444 siz mul setlinewidth stroke
  27.          } if
  28.        fontkind shadow eq fontkind outlineshadow eq or
  29.          {
  30.            /sy sy 0.0358332 siz mul sub def
  31.            /ey ey 0.0358332 siz mul sub def
  32.            lw setlinewidth
  33.            lw 2 div sx add sy
  34.            lw 2 div sub moveto
  35.            lw 2 div ex add ey
  36.            lw 2 div sub lineto stroke 
  37.            gsave
  38.            1 1 1 setrgbcolor lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke
  39.            grestore
  40.            lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto
  41.            strokepath 0.0119444 siz mul setlinewidth stroke
  42.          } if
  43.       } if
  44.  } ifelse
  45. grestore} bind def
  46. /plain 1 def
  47. /outline 2 def
  48. /shadow 3 def
  49. /outlineshadow 4 def
  50. /fess {
  51.     currentdict /outlineFontSize known {
  52.         /outlineFontSize 2 index def
  53.     } if
  54.     findfont exch dup /siz exch def scalefont setfont
  55. } bind def
  56. /SHDW {gsave siz oldfontname fess siz 0.055 mul x add y siz 0.05 mul sub moveto c show grestore} def
  57. /NRML {gsave 1 1 1 setrgbcolor siz oldfontname fess x y moveto c show grestore siz /Outline fess  x y moveto c show} def
  58. /S {
  59. fontkind plain eq {neg moveto show} if
  60. fontkind outline eq {neg /y exch def /x exch def /c exch def NRML} if
  61. fontkind shadow eq {neg /y exch def /x exch def /c exch def SHDW NRML} if
  62. fontkind outlineshadow eq {neg /y exch def /x exch def /c exch def SHDW NRML} if
  63. } bind def
  64. /F {
  65. /fontkind exch def
  66. fontkind plain eq {fess} if
  67. fontkind outline eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} if
  68. fontkind shadow eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} if
  69. fontkind outlineshadow eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} if
  70. } bind def
  71. /makeoutlinedict 15 dict def
  72. /makeoutlinefont
  73.  {
  74.   makeoutlinedict begin
  75.    /uniqueid exch def
  76.    /strokewidth exch def
  77.    /newfontname exch def
  78.    /basefontname exch def
  79.    /basefontdict basefontname findfont def
  80.    /numentries basefontdict maxlength 1 add def
  81.    basefontdict /UniqueID known not
  82.    {/numentries numentries 1 add def} if
  83.    /outfontdict numentries dict def
  84.    basefontdict
  85.    {
  86.      exch dup /FID ne {exch outfontdict 3 1 roll put} {pop pop} ifelse
  87.       }forall
  88.    outfontdict /FontName newfontname put
  89.    outfontdict /PaintType 2 put
  90.    outfontdict /StrokeWidth strokewidth put
  91.    outfontdict /UniqueID uniqueid put
  92.    newfontname outfontdict definefont pop
  93.   end
  94.   }def
  95. /UID {
  96.  findfont dup /UniqueID known
  97.   {/UniqueID get 1 add}
  98.   {pop 1}
  99.   ifelse
  100. } def
  101. /OLF {
  102. dup
  103. /Outline
  104. 1000 62 div
  105. 4 -1 roll
  106. UID
  107. /outlineFontSize 5 index def
  108. makeoutlinefont
  109. /Outline findfont exch scalefont setfont
  110. } def
  111. /CopyEncoding {
  112. findfont
  113. /Encoding get
  114. dup length array
  115. /tarrayz exch def
  116. tarrayz 0
  117. 3 -1 roll
  118. putinterval
  119. tarrayz
  120. } bind def
  121. /Re-encode {
  122. dup length array copy
  123. /eap 0 def
  124. exch {
  125. dup type /integertype eq {
  126. /eap exch def
  127. } {
  128. 1 index
  129. exch
  130. eap exch
  131. put
  132. /eap eap 1 add def
  133. } ifelse
  134. } forall
  135. } bind def
  136. /EncodeFont    {
  137. findfont dup
  138. length dict
  139. begin
  140. {    1 index /FID ne
  141. { def }
  142. { pop pop } ifelse
  143. } forall
  144. /FontName exch def
  145. /Encoding exch def
  146. FontName currentdict
  147. end
  148. definefont pop
  149. } bind def
  150. %%EndProcSet